home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LOAN.cpt / LOAN / background_2627.txt < prev    next >
Text File  |  1990-12-13  |  8KB  |  372 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 3880
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   put the short date into background field 11
  9.  
  10.  
  11.  
  12.   put the seconds +(((60*60)*24)*45) into it
  13.   convert it to short date
  14.   put it into background field 12
  15.  
  16.  
  17.  
  18.  
  19.  
  20. end openStack
  21.  
  22.  
  23.  
  24.  
  25. on functionKey whichFunction
  26.   if whichFunction = 9 then -- Installemnt
  27.     put (field"A"/annuity((field"APR"/1200),field"N")*field"N")-field"A" into field"FC"
  28.     set numberFormat to "00.00"
  29.     put (field"A"/annuity((field"APR"/1200),field"N")) into field"PMT"
  30.     put ((field"A"+((Field"PMT"*field"N"*.01)*12))/ annuity((field"APR"/1200),field"N")) into Field"CL"
  31.  
  32.  
  33.   end if
  34.   if whichFunction = 10 then -- Single Payment
  35.     set numberFormat to "00.00"
  36.     put (field"A"*(Field"N"/365)*(Field"APR"/1200)+FIELD"A")into field "PMTH"
  37.     put (field"A"*(Field"N"/365)*(Field"APR"/1200)+FIELD"A"+ Field"A"*(.01*(field"N"/365))) into field "CLH"
  38.  
  39.     put field"PMTH" into field"PMT"
  40.     put field"CLH" into Field"CL"
  41.  
  42.  
  43.   end if
  44. end functionKey
  45.  
  46.  
  47. -- part 1 (field)
  48. -- low flags: 00
  49. -- high flags: 0002
  50. -- rect: left=113 top=100 right=124 bottom=180
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 14
  56. -- style flags: 0
  57. -- line height: 18
  58. -- part name: A
  59.  
  60.  
  61. -- part 2 (field)
  62. -- low flags: 00
  63. -- high flags: 0002
  64. -- rect: left=113 top=123 right=146 bottom=167
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 14
  70. -- style flags: 0
  71. -- line height: 18
  72. -- part name: N
  73.  
  74.  
  75. -- part 3 (field)
  76. -- low flags: 00
  77. -- high flags: 0002
  78. -- rect: left=113 top=145 right=169 bottom=167
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 14
  84. -- style flags: 0
  85. -- line height: 18
  86. -- part name: APR
  87.  
  88.  
  89. -- part 4 (field)
  90. -- low flags: 80
  91. -- high flags: 0000
  92. -- rect: left=186 top=142 right=168 bottom=303
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 21
  97. -- text size: 18
  98. -- style flags: 0
  99. -- line height: 24
  100. -- part name: FC
  101.  
  102.  
  103. -- part 5 (field)
  104. -- low flags: 00
  105. -- high flags: 0002
  106. -- rect: left=130 top=22 right=47 bottom=249
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 21
  111. -- text size: 18
  112. -- style flags: 0
  113. -- line height: 24
  114. -- part name: PMT
  115.  
  116.  
  117. -- part 12 (field)
  118. -- low flags: 00
  119. -- high flags: 0002
  120. -- rect: left=265 top=22 right=47 bottom=402
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 21
  125. -- text size: 18
  126. -- style flags: 0
  127. -- line height: 24
  128. -- part name: CL
  129.  
  130.  
  131. -- part 13 (field)
  132. -- low flags: 80
  133. -- high flags: 0000
  134. -- rect: left=238 top=124 right=209 bottom=438
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: PMTH
  143.  
  144.  
  145. -- part 14 (field)
  146. -- low flags: 80
  147. -- high flags: 0000
  148. -- rect: left=156 top=120 right=205 bottom=356
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 3
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: CLH
  157.  
  158.  
  159. -- part 15 (button)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=3 top=1 right=43 bottom=60
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 20098 / 20098
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: New Button
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   go to stack "Home"
  174. end mouseUp
  175.  
  176.  
  177.  
  178.  
  179. -- part 16 (button)
  180. -- low flags: 00
  181. -- high flags: 0004
  182. -- rect: left=464 top=20 right=55 bottom=503
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 17481 / 17481
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Address
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   get the selection
  194.   visual effect zoom open
  195.   go to "Address"
  196.   if it is not empty then find it
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 17 (button)
  202. -- low flags: 00
  203. -- high flags: 0004
  204. -- rect: left=466 top=131 right=166 bottom=505
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 20965 / 20965
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: To Do
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   go to card "First Do" of "Datebook"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 18 (button)
  221. -- low flags: 00
  222. -- high flags: 0004
  223. -- rect: left=464 top=57 right=92 bottom=504
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 22855 / 22855
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Yearly
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   get the seconds
  235.   convert it to dateItems
  236.   put ((item 1 of it) - 1987) *2 into whichSix
  237.   if item 2 of it > 6 then add 1 to whichSix
  238.   visual effect zoom open
  239.   if whichSix < 1 then go card 1 of stack "DateBook"
  240.   else if whichSix > 5 then go card 5 of stack "DateBook"
  241.   else
  242.     go to card whichSix of stack "DateBook"
  243.     send "bracketWeek" && the seconds to this card
  244.   end if
  245. end mouseUp
  246.  
  247.  
  248.  
  249. -- part 19 (button)
  250. -- low flags: 00
  251. -- high flags: 0004
  252. -- rect: left=465 top=94 right=129 bottom=504
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 21209 / 21209
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Daily
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   set lockScreen to true
  264.   go stack "DateBook"
  265.   goWeekly the seconds
  266.   set lockScreen to false
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 27 (field)
  272. -- low flags: 00
  273. -- high flags: 0002
  274. -- rect: left=208 top=147 right=171 bottom=442
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 0
  278. -- font id: 3
  279. -- text size: 14
  280. -- style flags: 0
  281. -- line height: 18
  282. -- part name: Name
  283.  
  284.  
  285. -- part 28 (field)
  286. -- low flags: 00
  287. -- high flags: 4007
  288. -- rect: left=24 top=195 right=329 bottom=444
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 0
  292. -- font id: 3
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: 
  297.  
  298.  
  299. -- part 29 (button)
  300. -- low flags: 00
  301. -- high flags: 2004
  302. -- rect: left=467 top=169 right=203 bottom=506
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 20186 / 20186
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Find
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   doMenu "Find..."
  314. end mouseUp
  315.  
  316.  
  317.  
  318. -- part 31 (field)
  319. -- low flags: 00
  320. -- high flags: 0002
  321. -- rect: left=363 top=80 right=98 bottom=439
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 0
  325. -- font id: 3
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Today
  330.  
  331.  
  332. -- part 34 (field)
  333. -- low flags: 00
  334. -- high flags: 0002
  335. -- rect: left=363 top=101 right=119 bottom=439
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 0
  339. -- font id: 3
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Mdate
  344.  
  345.  
  346. -- part 35 (button)
  347. -- low flags: 00
  348. -- high flags: 8000
  349. -- rect: left=5 top=45 right=92 bottom=59
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 1000 / 1000
  352. -- text alignment: 1
  353. -- font id: 0
  354. -- text size: 12
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: New Card
  358. ----- HyperTalk script -----
  359. on mouseUp
  360.   doMenu "New Card"
  361.   put the short date into background field 11
  362.  
  363.  
  364.  
  365.   put the seconds +(((60*60)*24)*45) into it
  366.   convert it to short date
  367.   put it into background field 12
  368.  
  369.  
  370. end mouseUp
  371.  
  372.